Código fuente de 'Paleta de colores 2.asp'
<HTML>
<head>
<TITLE>Paleta de colores 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<CENTER>
<b><font size="3" face="Arial">Paleta de colores 2</font></b><font size="3">
</font>
</CENTER>
<%
DIM strScriptName, intStep, strColor, str_rr, str_gg, str_bb
'get the name of the current page
strScriptName = Request.ServerVariables("SCRIPT_NAME")
%>
<Form name="MyForm" Action= "<%=strScriptName%>?key=1" >
<font size="1">Selecciona rango de colores (más alto menos colores):</font>
<SELECT Name = "StepSize" SIZE="1">
<option>1</option>
<option>2</option>
<OPTION>3</OPTION>
<OPTION selected>4</OPTION>
<OPTION>5</OPTION>
<option>6</option>
<option>7</option>
</SELECT>
<INPUT TYPE="submit" Value="Enviar">
</Form>
</CENTER>
<%
If len(Request("StepSize")) then
intStep= Request("StepSize")
for str_rr = 0 to 15 step intStep
for str_gg = 0 to 15 step intStep
Response.write("<TABLE width='100%'><TR>")
for str_bb = 0 to 15 step intStep
strColor="#" & hex(str_rr) & hex(str_rr) & _
hex(str_gg) & hex(str_gg) & hex(str_bb) & hex(str_bb)
Response.write("<TD align='right' width='*'><font face='Courier New' size='2'>" & _
strColor & "</font></TD>")
Response.write("<TD width='50' bgcolor=" & _
strColor & "></TD>")
next
Response.write("</TR>")
next
next
Response.write("</TABLE>")
End if
%>
</BODY>
</HTML>